SUBROUTINE ATURAN_TRAPESIUM(a, b)
	
	IMPLICIT NONE
	DOUBLE PRECISION a, b, n, I
	
	print "Aturan trapesium"
	
	
END
